home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Fixation 1.3 / pascal.h < prev    next >
Encoding:
Text File  |  1995-02-03  |  696 b   |  27 lines  |  [TEXT/KAHL]
  1.  
  2. /*
  3.  *  pascal.h
  4.  *
  5.  *  Copyright (c) 1991 Symantec Corporation.  All rights reserved.
  6.  *
  7.  */
  8.  
  9. //  these functions modify their argument in place - don't use with constants
  10. /* unsigned char *CtoPstr(char *);
  11. char *PtoCstr(unsigned char *);
  12. #define c2pstr(s) CtoPstr(s)
  13. #define p2cstr(s) PtoCstr(s)
  14. pascal unsigned char *C2PStr(char *);
  15. pascal char *P2CStr(unsigned char *); */
  16.  
  17. #ifndef __cplusplus
  18. //  no longer needed - provided for backward compatibility
  19. pascal void CallPascal (...) = { 0x205F, 0x4E90 };
  20. pascal char CallPascalB(...) = { 0x205F, 0x4E90 };
  21. pascal int  CallPascalW(...) = { 0x205F, 0x4E90 };
  22. pascal long CallPascalL(...) = { 0x205F, 0x4E90 };
  23. #endif
  24.  
  25. #ifdef __cplusplus
  26. }
  27. #endif